home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #49 (Oct 89) / Driver Code / test_drvr.r < prev    next >
Text File  |  1988-01-13  |  3KB  |  208 lines
  1. #include    "Types.r"
  2. resource 'DITL' (128) {
  3.     {    /* array DITLarray: 14 elements */
  4.         /* [1] */
  5.         {176, 81, 196, 160},
  6.         Button {
  7.             enabled,
  8.             "Do It"
  9.         },
  10.         /* [2] */
  11.         {176, 230, 196, 309},
  12.         Button {
  13.             enabled,
  14.             "Quit"
  15.         },
  16.         /* [3] */
  17.         {10, 10, 26, 82},
  18.         RadioButton {
  19.             enabled,
  20.             "Status"
  21.         },
  22.         /* [4] */
  23.         {30, 10, 46, 60},
  24.         RadioButton {
  25.             enabled,
  26.             "Rate"
  27.         },
  28.         /* [5] */
  29.         {50, 10, 66, 81},
  30.         RadioButton {
  31.             enabled,
  32.             "Volume"
  33.         },
  34.         /* [6] */
  35.         {70, 10, 85, 87},
  36.         RadioButton {
  37.             enabled,
  38.             "Infused"
  39.         },
  40.         /* [7] */
  41.         {90, 10, 106, 90},
  42.         RadioButton {
  43.             enabled,
  44.             "Initialize"
  45.         },
  46.         /* [8] */
  47.         {120, 10, 136, 60},
  48.         RadioButton {
  49.             enabled,
  50.             "Ask"
  51.         },
  52.         /* [9] */
  53.         {140, 10, 156, 60},
  54.         RadioButton {
  55.             enabled,
  56.             "Set"
  57.         },
  58.         /* [10] */
  59.         {49, 95, 65, 145},
  60.         EditText {
  61.             disabled,
  62.             ""
  63.         },
  64.         /* [11] */
  65.         {39, 159, 77, 345},
  66.         StaticText {
  67.             disabled,
  68.             ""
  69.         },
  70.         /* [12] */
  71.         {17, 158, 36, 239},
  72.         StaticText {
  73.             disabled,
  74.             "Response:"
  75.         },
  76.         /* [13] */
  77.         {33, 156, 37, 346},
  78.         Picture {
  79.             disabled,
  80.             130
  81.         },
  82.         /* [14] */
  83.         {110, 12, 113, 52},
  84.         Picture {
  85.             disabled,
  86.             130
  87.         }
  88.     }
  89. };
  90.  
  91. resource 'DITL' (-16000) {
  92.     {    /* array DITLarray: 2 elements */
  93.         /* [1] */
  94.         {103, 17, 126, 86},
  95.         Button {
  96.             enabled,
  97.             "OK"
  98.         },
  99.         /* [2] */
  100.         {10, 82, 85, 266},
  101.         StaticText {
  102.             disabled,
  103.             "Too many drivers are trying to access th"
  104.             "e event filter. Tell Jeff, only Jeff can"
  105.             " help. So tell him, OK?"
  106.         }
  107.     }
  108. };
  109.  
  110. resource 'DLOG' (128, "Pump Driver") {
  111.     {64, 114, 300, 468},
  112.     dBoxProc,
  113.     visible,
  114.     noGoAway,
  115.     0x0,
  116.     128,
  117.     "Pump Driver"
  118. };
  119.  
  120. resource 'PICT' (130) {
  121.     42,
  122.     {7, 7, 11, 85},
  123.     $"1101 A000 8201 000A 0007 0007 000D 0055"
  124.     $"0700 0200 0222 0009 0009 4800 A000 83FF"
  125. };
  126.  
  127. resource 'STR ' (219) {
  128.     "Illegal Request      "
  129. };
  130.  
  131. resource 'STR ' (212) {
  132.     "Status was set      "
  133. };
  134.  
  135. resource 'STR ' (213) {
  136.     "Rate was set"
  137. };
  138.  
  139. resource 'STR ' (214) {
  140.     "Volume was set      "
  141. };
  142.  
  143. resource 'STR ' (215) {
  144.     "Infused was set      "
  145. };
  146.  
  147. resource 'STR ' (216) {
  148.     "Pump was initialized      "
  149. };
  150.  
  151. resource 'STR ' (217) {
  152.     "Bad Problem      "
  153. };
  154.  
  155. resource 'STR ' (218) {
  156.     "Status is normal      "
  157. };
  158.  
  159. resource 'STR ' (200) {
  160.     "Status is abnormal:     "
  161. };
  162.  
  163. resource 'STR ' (201) {
  164.     "Rate is     "
  165. };
  166.  
  167. resource 'STR ' (202) {
  168.     "Volume is     "
  169. };
  170.  
  171. resource 'STR ' (203) {
  172.     "Infused is     "
  173. };
  174.  
  175. resource 'STR ' (204) {
  176.     "Invalid request      "
  177. };
  178.  
  179. resource 'STR ' (205) {
  180.     "Read Timed out      "
  181. };
  182.  
  183. resource 'STR ' (206) {
  184.     "Write Timed out      "
  185. };
  186.  
  187. resource 'STR ' (207) {
  188.     "Too many received characters to decode  "
  189.     "    "
  190. };
  191.  
  192. resource 'STR ' (208) {
  193.     "The pump sent an decodeable number      "
  194. };
  195.  
  196. resource 'STR ' (209) {
  197.     "The pump sent an unknown action      "
  198. };
  199.  
  200. resource 'STR ' (210) {
  201.     "The pump sent an unknown request      "
  202. };
  203.  
  204. resource 'STR ' (211) {
  205.     "The pump is unhappy with the last comman"
  206.     "d      "
  207. };
  208.